perm filename VV[TMP,LCS] blob
sn#502608 filedate 1980-04-22 generic text, type T, neo UTF8
1) VMRX.FAI[TMP,LCS] and 2) VMR.FAI[TMP,LCS] 4-22-80 14:50 pages 1,1
**** File 1) VMRX.FAI[TMP,LCS]/1P/6L
1) C00008 00004 XINI: OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=10.2")? /]
1) C00011 00005 MOVE A,E ROTATION
**** File 2) VMR.FAI[TMP,LCS]/1P/6L
2) C00008 00004 XINI: OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=11")? /]
2) C00011 00005 MOVE A,E ROTATION
***************
**** File 1) VMRX.FAI[TMP,LCS]/2P/24L
1) RMAR←←=4223 ;WILL DO 10.2" LONG MAXIMUM
1) WIDTH←←=4224 ;22" WIDE PAPER -- MAYBE 21 WOULD BE BETTER?
1) LBUFL←←=118 ;LINE LENGTH IN WORDS
1) LSTBIT←←1⊗34
**** File 2) VMR.FAI[TMP,LCS]/2P/24L
2) RMAR←←=3159
2) WIDTH←←=3160 ;15.8" WIDE PAPER (DOUBLE SIZE)
2) LBUFL←←=88 ;LINE LENGTH IN WORDS
2) LSTBIT←←1⊗34
***************
**** File 1) VMRX.FAI[TMP,LCS]/3P/8L
1) ;; MOVNI =200 ;XSHIFT IS INITTED AT -200 2/80
1) ;; MOVEM XSHIFT# ;SHIFT FOR ROTATION
1) SETZM ROT1# ;1ST TIME FLAG
1) SETZM SPREAD#
1) SETZM SAVBIT# ;FLAG TO SAVE BITS.
1) HRRZ A,JOBFF ;RESET CORE WITHOUT A RESET
**** File 2) VMR.FAI[TMP,LCS]/3P/8L
2) MOVNI =200 ;XSHIFT IS INITTED AT -200 2/80
2) MOVEM XSHIFT# ;SHIFT FOR ROTATION
2) SETZM ROT1# ;1ST TIME FLAG
2) SETZM SPREAD#
2) SETZM SAVBIT# ;TYPE '-' FIRST TO SAVE BITS.
2) HRRZ A,JOBFF ;RESET CORE WITHOUT A RESET
***************
**** File 1) VMRX.FAI[TMP,LCS]/3P/32L
1) ROTX: OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET (DEFAULT=10.0(CENTER))? /]
1) PUSHJ P,RNUM
**** File 2) VMR.FAI[TMP,LCS]/3P/32L
2) ROTX: OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET (DEFAULT=7.0(CENTER))? /]
2) PUSHJ P,RNUM
***************
1) VMRX.FAI[TMP,LCS] and 2) VMR.FAI[TMP,LCS] 4-22-80 14:50 pages 3,3
**** File 1) VMRX.FAI[TMP,LCS]/3P/36L
1) HRREI A,-=1400 ;-=2000 ; YES, DEFAULT = 10"
1) JRST YDEF] ;GET Y INFO
**** File 2) VMR.FAI[TMP,LCS]/3P/36L
2) HRREI A,-=1400 ; YES, DEFAULT = 7"
2) JRST YDEF] ;GET Y INFO
***************
**** File 1) VMRX.FAI[TMP,LCS]/4P/1L
1) XINI: OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=10.2")? /]
1) SETZM DEFA#
**** File 2) VMR.FAI[TMP,LCS]/4P/1L
2) XINI: OUTSTR [ASCIZ /PAGE HEIGHT (MAX=16", DEFAULT=11")? /]
2) SETZM DEFA#
***************
**** File 1) VMRX.FAI[TMP,LCS]/4P/8L
1) PASSD: HRRZI A,=10
1) CAIE C,12
**** File 2) VMR.FAI[TMP,LCS]/4P/8L
2) PASSD: HRRZI A,=11
2) CAIE C,12
***************
**** File 1) VMRX.FAI[TMP,LCS]/4P/12L
1) ADDI A,=120 ;+.6
1) CAILE A,=3200 ;IF MORE THAN 16" IS TYPED, WE GET 16"
1) MOVEI A,=3200 ;THIS IS MAXIMUM FOR THIS PROGRAM(255K)
1) SUBI A,=2970 ;XSHIFT=3050-A (DEFAULT ENDS UP AS 850)
1) ;; SUBI A,=3030 ;XSHIFT=3050-A (DEFAULT ENDS UP AS 910)
1) MOVNM A,XSHIFT#
1) YINI1: OUTSTR [ASCIZ \ORIGIN Y BOTTOM OFFSET, 200/IN.(DEFAULT=900)? \]
1) PUSHJ P,RNUM
1) PASS3: JRST [ MOVEI A,=900 ;=1100 ;;MOVEI A,=4 ;WAS 800
1) JRST IYDEF]
**** File 2) VMR.FAI[TMP,LCS]/4P/12L
2) CAILE A,=3200 ;IF MORE THAN 14" IS TYPED, WE GET 14"
2) MOVEI A,=3200 ;THIS IS MAXIMUM FOR THIS PROGRAM(255K)
2) ; PUSH P,A
2) ;; MOVEI T,=2200 ;XSHIFT=850+((2200-A)*105)/1000
2) ;; SUB T,A
2) ;; IMULI T,=105
2) ;; IDIVI T,=100
2) ;; ADDI T,=850
2) SUBI A,=3050 ;XSHIFT=3050-A (DEFAULT ENDS UP AS 850)
1) VMRX.FAI[TMP,LCS] and 2) VMR.FAI[TMP,LCS] 4-22-80 14:50 pages 4,4
2) MOVNM A,XSHIFT
2) YINI1: OUTSTR [ASCIZ \ORIGIN Y BOTTOM OFFSET, 200/IN.(DEFAULT=800)? \]
2) PUSHJ P,RNUM
2) PASS3: JRST [ MOVEI A,=800 ;;MOVEI A,=4
2) JRST IYDEF]
***************
**** File 1) VMRX.FAI[TMP,LCS]/4P/27L
1) MOVEI A,=1700 ;WAS 2800
1) XDEF: MOVEM A,LINCNT#
1) MOVEI B,-1(A)
**** File 2) VMR.FAI[TMP,LCS]/4P/31L
2) ; POP P,A
2) MOVEI A,=2800
2) XDEF: MOVEM A,LINCNT# ;LINCNT NEVER SEEMS TO REAPPEAR!
2) MOVEI B,-1(A)
***************
**** File 1) VMRX.FAI[TMP,LCS]/8P/30L
1) LOSEX: MOVE SVPEN ;IF PEN IS UP DON'T PRINT MESSAGE
1) CAIN 3
1) JRST PENUP
1) SETOM OOBFLG ;OOB X
1) SKIPE POOBX
**** File 2) VMR.FAI[TMP,LCS]/8P/30L
2) LOSEX: SETOM OOBFLG ;OOB X
2) SKIPE POOBX
***************
**** File 1) VMRX.FAI[TMP,LCS]/10P/38L
1) ;OUTFIL: MOVE U,FILNAM
1) ; ROT U,6 ;CHANGE SINGLE SIXBIT CHAR TO ASCIZ
1) ; ADDI U,40
1) ; OUTSTR [ASCIZ/ --- WRITING /]
1) ; OUTCHR U
1) ; OUTSTR [ASCIZ/.VRN ---
1) ;/]
1) OUTFIL: OUTSTR [ASCIZ/ WRITING .VRN FILE -- /]
**** File 2) VMR.FAI[TMP,LCS]/10P/38L
2) OUTFIL: OUTSTR [ASCIZ/ WRITING .VRN FILE -- /]
***************
**** File 1) VMRX.FAI[TMP,LCS]/10P/80L
1) =119 ;MUST BE 1 MORE THAN LBUFL ON PAGE 2.
1) VMRX.FAI[TMP,LCS] and 2) VMR.FAI[TMP,LCS] 4-22-80 14:50 pages 10,10
1) 0
**** File 2) VMR.FAI[TMP,LCS]/10P/73L
2) =89 ;MUST BE 1 MORE THAN LBUFL ON PAGE 2.
2) 0
***************
**** File 1) VMRX.FAI[TMP,LCS]/12P/10L
1) POPBAC: POP P,A
**** File 2) VMR.FAI[TMP,LCS]/12P/10L
2) THICK: OUTSTR [ASCIZ/*** THICKER LINES ***
2) /]
2) POPBAC: POP P,A
***************
**** File 1) VMRX.FAI[TMP,LCS]/12P/16L
1) JRST POPBAC
1) CKDEFA: CAME A,[SIXBIT/-/] ;TYPE '-' FIRST TO SAVE BITS
**** File 2) VMR.FAI[TMP,LCS]/12P/18L
2) JRST THICK
2) CKDEFA: CAME A,[SIXBIT/-/] ;TYPE '-' FIRST TO SAVE BITS
***************